inherited PaymentsListFrame: TPaymentsListFrame
  Width = 833
  Height = 524
  Constraints.MinWidth = 833
  inherited grpList: TcxGroupBox
    Caption = #1055#1083#1072#1090#1077#1078#1080
    DesignSize = (
      833
      517)
    Height = 524
    Width = 833
    inherited cxLabel1: TcxLabel
      Width = 827
    end
    inherited grdList: TcxGrid
      Width = 827
      Height = 468
      inherited grdListView: TcxGridDBTableView
        OnCustomDrawCell = grdListViewCustomDrawCell
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '# ### ### ##0.##'
            Kind = skSum
            Column = grdListViewsumm
          end
          item
            Format = '# ### ### ##0.##'
            Kind = skSum
            Column = grdListViewfull_summ
          end>
        NewItemRow.SeparatorColor = 3579939
        OptionsView.Footer = True
        OptionsView.FooterAutoHeight = True
        object grdListViewid: TcxGridDBColumn
          DataBinding.FieldName = 'id'
          Visible = False
        end
        object grdListViewnum: TcxGridDBColumn
          Caption = #1053#1086#1084#1077#1088
          DataBinding.FieldName = 'num'
          PropertiesClassName = 'TcxCalcEditProperties'
          Options.Editing = False
        end
        object grdListViewp_date: TcxGridDBColumn
          Caption = #1044#1072#1090#1072
          DataBinding.FieldName = 'p_date'
          PropertiesClassName = 'TcxDateEditProperties'
          Options.Editing = False
          Width = 80
        end
        object grdListViewsumm: TcxGridDBColumn
          Caption = #1057#1091#1084#1084#1072
          DataBinding.FieldName = 'summ'
          PropertiesClassName = 'TcxCalcEditProperties'
          Properties.DisplayFormat = '# ### ### ##0.##'
          Visible = False
          Options.Editing = False
          Width = 100
        end
        object grdListViewfull_summ: TcxGridDBColumn
          Caption = #1057#1091#1084#1084#1072' '#1087#1083#1072#1090#1077#1078#1072
          DataBinding.FieldName = 'full_summ'
          PropertiesClassName = 'TcxCalcEditProperties'
          Properties.DisplayFormat = '# ### ### ##0.##'
          Options.Editing = False
          Width = 100
        end
        object grdListViewcurr_id: TcxGridDBColumn
          Caption = #1042#1072#1083#1102#1090#1072
          DataBinding.FieldName = 'curr_id'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'id'
          Properties.ListColumns = <
            item
              FieldName = 'code'
            end>
          Properties.ListSource = DMdl.dsCurrency
          Options.Editing = False
          Width = 60
        end
        object grdListViewp_diff: TcxGridDBColumn
          Caption = #1054#1089#1090#1072#1090#1086#1082
          DataBinding.FieldName = 'p_diff'
          PropertiesClassName = 'TcxCalcEditProperties'
          Properties.DisplayFormat = '# ### ### ##0.##'
          Width = 100
        end
        object grdListViewnb: TcxGridDBColumn
          Caption = #1056#1072#1089#1095#1077#1090
          DataBinding.FieldName = 'nb'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'code'
          Properties.ListColumns = <
            item
              FieldName = 'title'
            end>
          Properties.ListSource = DMdl.dsNB
          Options.Editing = False
        end
        object grdListViewpayer_id: TcxGridDBColumn
          Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
          DataBinding.FieldName = 'payer_id'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'id'
          Properties.ListColumns = <
            item
              FieldName = 'name_rus'
            end>
          Properties.ListSource = DMdl.dsClient
          Options.Editing = False
          Width = 150
        end
        object grdListViewdescr: TcxGridDBColumn
          Caption = #1048#1085#1092#1086#1088#1084#1072#1094#1080#1103
          DataBinding.FieldName = 'descr'
          PropertiesClassName = 'TcxTextEditProperties'
          Width = 150
        end
        object grdListViewact_id: TcxGridDBColumn
          DataBinding.FieldName = 'act_id'
          Visible = False
        end
        object grdListViewaccaunt_id: TcxGridDBColumn
          DataBinding.FieldName = 'accaunt_id'
          Visible = False
        end
        object grdListViewparent_id: TcxGridDBColumn
          DataBinding.FieldName = 'parent_id'
          Visible = False
        end
        object grdListViewc_date: TcxGridDBColumn
          DataBinding.FieldName = 'c_date'
          Visible = False
        end
        object grdListViewc_user: TcxGridDBColumn
          DataBinding.FieldName = 'c_user'
          Visible = False
        end
      end
    end
    object chkDate: TcxCheckBox
      Left = 196
      Top = 23
      Anchors = [akTop, akRight]
      Caption = #1044#1072#1090#1072
      TabOrder = 7
      Transparent = True
      OnClick = chkDateClick
      Width = 57
    end
    object dtFrom: TcxDateEdit
      Left = 257
      Top = 19
      Anchors = [akTop, akRight]
      Enabled = False
      Properties.OnChange = dtFromPropertiesChange
      TabOrder = 8
      Width = 102
    end
    object dtTo: TcxDateEdit
      Left = 369
      Top = 19
      Anchors = [akTop, akRight]
      Enabled = False
      Properties.OnChange = dtToPropertiesChange
      TabOrder = 9
      Width = 102
    end
    object cxLabel2: TcxLabel
      Left = 489
      Top = 24
      Anchors = [akTop, akRight]
      Caption = #1050#1083#1080#1077#1085#1090':'
      Transparent = True
    end
    object lupClient: TcxDBLookupComboBox
      Left = 536
      Top = 21
      Anchors = [akTop, akRight]
      DataBinding.DataField = 'id'
      DataBinding.DataSource = dsFilter
      Properties.ClearKey = 46
      Properties.DropDownListStyle = lsFixedList
      Properties.DropDownRows = 20
      Properties.DropDownSizeable = True
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          Width = 80
          FieldName = 'code'
        end
        item
          Width = 150
          FieldName = 'name_rus'
        end>
      Properties.ListFieldIndex = 1
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DMdl.dsClient
      Properties.OnChange = lupClientPropertiesChange
      TabOrder = 11
      Width = 287
    end
  end
  inherited tblList: TUniTable
    TableName = 'payments'
  end
  inherited dsList: TUniDataSource
    DataSet = quList
  end
  inherited ActionList: TActionList
    inherited actDel: TAction
      OnExecute = actDelExecute
    end
  end
  inherited quList: TUniQuery
    SQL.Strings = (
      'select p1.*, '
      '(ifnull(p1.full_summ, 0) - '
      
        '  ifnull((select sum(p2.summ) from payments p2 where p2.parent_i' +
        'd = p1.id), 0))  as p_diff'
      'FROM payments p1 '
      'order by p_date desc')
    object quListid: TIntegerField
      FieldName = 'id'
    end
    object quListnum: TIntegerField
      FieldName = 'num'
    end
    object quListp_date: TDateField
      FieldName = 'p_date'
    end
    object quListsumm: TFloatField
      FieldName = 'summ'
    end
    object quListcurr_id: TIntegerField
      FieldName = 'curr_id'
    end
    object quListdescr: TStringField
      FieldName = 'descr'
      Size = 255
    end
    object quListpayer_id: TIntegerField
      FieldName = 'payer_id'
    end
    object quListact_id: TIntegerField
      FieldName = 'act_id'
    end
    object quListfull_summ: TFloatField
      FieldName = 'full_summ'
    end
    object quListnb: TIntegerField
      FieldName = 'nb'
    end
    object quListaccaunt_id: TIntegerField
      FieldName = 'accaunt_id'
    end
    object quListparent_id: TIntegerField
      FieldName = 'parent_id'
    end
    object quListc_date: TDateField
      FieldName = 'c_date'
    end
    object quListc_user: TStringField
      FieldName = 'c_user'
      Size = 30
    end
    object quListp_diff: TFloatField
      FieldName = 'p_diff'
      ReadOnly = True
      Required = True
    end
  end
  object memFilter: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 616
    Top = 88
    object memFilterid: TIntegerField
      FieldName = 'id'
    end
  end
  object dsFilter: TDataSource
    DataSet = memFilter
    Left = 632
    Top = 104
  end
end
